home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).adf / DiskLabel_V1.0 / DiskLabel_V1.0 < prev    next >
Text File  |  1989-07-03  |  4KB  |  218 lines
  1. REM DiskLabel V1.0  Written by Christian Koot in 1990
  2. WINDOW 1 , "  DiskLabel V1.0  (c) Christian Koot Oct.1990" ,, 28
  3. GOTO Hilfe
  4. Steuerung:
  5. PRINT
  6. INPUT " Wie geht´s weiter? (Möglichkeiten mit <h>): " , frag$
  7. GOTO Hauptteil
  8. Hauptteil:
  9. IF frag$ = "ä" THEN GOTO Aenderung
  10. IF frag$ = "e" THEN GOTO Eingabe
  11. IF frag$ = "a" THEN GOTO Anzeige
  12. IF frag$ = "d" THEN GOTO Druck
  13. IF frag$ = "f" THEN GOTO Diskoperationen
  14. IF frag$ = "i" THEN GOTO Infos
  15. IF frag$ = "h" THEN GOTO Hilfe
  16. GOTO Hauptteil
  17. Eingabe:
  18. CLS
  19. PRINT
  20. INPUT "    Diskname: " , label$
  21. PRINT
  22. INPUT "1: " , a$
  23. INPUT "2: " , b$
  24. INPUT "3: " , c$
  25. INPUT "4: " , d$
  26. INPUT "5: " , e$
  27. INPUT "6: " , f$
  28. INPUT "7: " , g$
  29. INPUT "8: " , h$
  30. GOTO Steuerung
  31. Aenderung:
  32. CLS
  33. INPUT "Welche Eingabe wollen Sie ändern? (1-8 bzw. Diskname)" , alter$
  34. IF alter$ = "1" THEN GOTO Einae
  35. IF alter$ = "2" THEN GOTO Zweae
  36. IF alter$ = "3" THEN GOTO Dreae
  37. IF alter$ = "4" THEN GOTO Vieae
  38. IF alter$ = "5" THEN GOTO Fueae
  39. IF alter$ = "6" THEN GOTO Secae
  40. IF alter$ = "7" THEN GOTO Sieae
  41. IF alter$ = "8" THEN GOTO Achae
  42. IF alter$ = "Diskname" THEN GOTO Disae
  43. GOTO Aenderung
  44. Einae:
  45. PRINT
  46. PRINT "Alter PRG.Name: " ; a$
  47. PRINT
  48. INPUT "Neuer PRG.Name: " , a$
  49. GOTO Frage
  50. Frage:
  51. PRINT
  52. PRINT
  53. INPUT "Wollen Sie nochwas ändern? (j/n) " , quest$
  54. IF quest$ = "j" THEN GOTO Aenderung
  55. IF quest$ = "n" THEN GOTO Steuerung
  56. GOTO Frage
  57. Zweae:
  58. PRINT
  59. PRINT "Alter PRG.Name: " ; b$
  60. PRINT
  61. INPUT "Neuer PRG.Name: " , b$
  62. GOTO Frage
  63. Dreae:
  64. PRINT
  65. PRINT "Alter PRG.Name: " ; c$
  66. PRINT
  67. INPUT "Neuer PRG.Name: " , c$
  68. GOTO Frage
  69. Vieae:
  70. PRINT
  71. PRINT "Alter PRG.Name: " ; d$
  72. PRINT
  73. INPUT "Neuer PRG.Name: " , d$
  74. GOTO Frage
  75. Fueae:
  76. PRINT
  77. PRINT "Alter PRG.Name: " ; e$
  78. PRINT
  79. INPUT "Neuer PRG.Name: " , e$
  80. GOTO Frage
  81. Secae:
  82. PRINT
  83. PRINT "Alter PRG.Name: " ; f$
  84. PRINT
  85. INPUT "Neuer PRG.Name: " , f$
  86. GOTO Frage
  87. Sieae:
  88. PRINT
  89. PRINT "Alter PRG.Name: " ; g$
  90. PRINT
  91. INPUT "Neuer PRG.Name: " , g$
  92. GOTO Frage
  93. Achae:
  94. PRINT
  95. PRINT "Alter PRG.Name: " ; h$
  96. PRINT
  97. INPUT "Neuer PRG.Name: " , h$
  98. GOTO Frage
  99. Disae:
  100. PRINT
  101. PRINT "Alter Diskname: " ; label$
  102. PRINT
  103. INPUT "Neuer Diskname: " , label$
  104. GOTO Frage
  105. Anzeige:
  106. CLS
  107. PRINT
  108. PRINT"     Diskname: " ; label$
  109. PRINT
  110. PRINT" 1: " ; a$
  111. PRINT" 2: " ; b$
  112. PRINT" 3: " ; c$
  113. PRINT" 4: " ; d$
  114. PRINT" 5: " ; e$
  115. PRINT" 6: " ; f$
  116. PRINT" 7: " ; g$
  117. PRINT" 8: " ; h$
  118. GOTO Steuerung
  119. Druck:
  120. CLS
  121. PRINT
  122. PRINT" Ist der Drucker bereit? (Drücken Sie irgendeine Taste):"
  123. WHILE INKEY$ = "" : WEND 
  124. LPRINT"    " ; label$
  125. LPRINT
  126. LPRINT"" ; a$
  127. LPRINT"" ; b$
  128. LPRINT"" ; c$
  129. LPRINT"" ; d$
  130. LPRINT"" ; e$
  131. LPRINT"" ; f$
  132. LPRINT"" ; g$
  133. LPRINT"" ; h$
  134. GOTO Anzeige
  135. Infos:
  136. CLS
  137. PRINT" DiskLabel 1.0 darf in jede PD-Serie aufgenommen werden, sofern ich davon"
  138. PRINT
  139. PRINT" schriftlich in Kenntnis gesetzt werde. Dieses Programm und seine Begleit-"
  140. PRINT
  141. PRINT" files müssen unverändert und vollständig übernommen werden. Dieses Prog-"
  142. PRINT
  143. PRINT" ist, wie gesagt, zum schnellen und unkomplizierten Bedrucken von Labels"
  144. PRINT
  145. PRINT" von 3,5 Zoll Disks gedacht und daher kann man es mit anderen Programmen"
  146. PRINT
  147. PRINT" in den Punkten Aufmachung und Funktionen nicht verglichen werden. Auf je-"
  148. PRINT
  149. PRINT" den Fall ist es unglaublich billig, da es PD ist. Für Verbesserungsvor-"
  150. PRINT
  151. PRINT" schläge, Tips und Fehlermeldungen bin ich jederzeit dankbar. Meine Adresse:"
  152. PRINT
  153. PRINT
  154. PRINT"        Christian Koot"
  155. PRINT"        Neißeweg 38"
  156. PRINT"   3588 Homberg/Efze"
  157. GOTO Steuerung:
  158. Hilfe:
  159. CLS
  160. PRINT
  161. PRINT" ä      - Eingaben ändern"
  162. PRINT" e      - Total neue Eingaben"
  163. PRINT" a      - Eingaben anzeigen"
  164. PRINT" d      - Drucken"
  165. PRINT" f      - Diskoperationen"
  166. PRINT" i      - Infos"
  167. PRINT" h      - Hilfe"
  168. PRINT
  169. GOTO Steuerung
  170. Diskoperationen:
  171. CLS
  172. PRINT
  173. INPUT " Wollen Sie Laden oder Speichern? (l/s) " , weg$
  174. IF weg$ = "s" THEN GOTO Speichern
  175. IF weg$ = "l" THEN GOTO Laden
  176. GOTO Diskoperationen
  177. Speichern:
  178. PRINT
  179. INPUT " Geben Sie bitte das Verzeichnis an: " , spfad$
  180. CHDIR spfad$
  181. PRINT
  182. PRINT " Die Daten zu " ; label$ ; " werden gespeichert."
  183. OPEN label$ FOR OUTPUT AS 1
  184. PRINT #1, label$
  185. PRINT #1, a$
  186. PRINT #1, b$
  187. PRINT #1, c$
  188. PRINT #1, d$
  189. PRINT #1, e$
  190. PRINT #1, f$
  191. PRINT #1, g$
  192. PRINT #1, h$
  193. CLOSE 1
  194. GOTO Steuerung
  195. Laden:
  196. PRINT
  197. INPUT " Geben Sie das Verzeichnis an: " , lpfad$
  198. CHDIR lpfad$
  199. PRINT
  200. PRINT
  201. INPUT " Geben Sie den Dateinamen an : " , lad$
  202. OPEN lad$ FOR INPUT AS 1
  203. INPUT #1, label$
  204. INPUT #1, a$
  205. INPUT #1, b$
  206. INPUT #1, c$
  207. INPUT #1, d$
  208. INPUT #1, e$
  209. INPUT #1, f$
  210. INPUT #1, g$
  211. INPUT #1, h$
  212. CLOSE 1
  213. GOTO Anzeige
  214.  
  215.  
  216.  
  217.  
  218.